10 REM* DATA LOADER FOR "HEADER BLOCK"
11 REM* THIS PUTS THE PROGRAM DIRECTLY
12 REM* INTO 1541 EXPANSION RAM AT 0800
13 :
20 FOR I=1 TO 175:READ A:C=C+A:NEXT
30 IF C<>20663 THEN PRINT"!DATA ERROR!": END
40 HI=8:LO=0: REM 0800 IN DRIVE MEMORY
50 RESTORE: OPEN 15,8,15
60 FOR I=1 TO 175: READ A
70 PRINT#15,"M-W:"CHR$(LO)CHR$(HI)CHR$(1)CHR$(A)
80 LO=LO+1:IF LO>255THEN LO=0:HI=HI+1
90 NEXT I: CLOSE 15
100 :
1000 DATA  76, 160, 234, 173, 254,  19, 133,  24
1010 DATA 173, 255,  19, 133,  25, 169,   0,  69
1020 DATA  22,  69,  23,  69,  24,  69,  25, 133
1030 DATA  26,  32,  52, 249, 162,   0, 181,  36
1040 DATA 157,   0,  16, 232, 224,  10, 208, 246
1050 DATA 173, 254,  19, 133,   6, 174, 255,  19
1060 DATA 202, 134,   7, 169,   0, 133,  61, 133
1070 DATA  51, 133,  48, 169,   6, 133,  50, 169
1080 DATA   3, 133,  49,  32,  16, 245,  32,  86
1090 DATA 245,  80, 254, 184, 173,   1,  28, 145
1100 DATA  48, 200, 208, 245, 160, 186,  80, 254
1110 DATA 184, 173,   1,  28, 153,   0,   1, 200
1120 DATA 208, 244, 184,  80, 254, 184, 173,   1
1130 DATA  28, 201,  85, 240, 246, 173,  12,  28
1140 DATA  41,  31,   9, 192, 141,  12,  28, 169
1150 DATA 255, 141,   3,  28, 169, 255, 141,   1
1160 DATA  28, 162,   5,  80, 254, 184, 202, 208
1170 DATA 250, 162,   0,  80, 254, 184, 189,   0
1180 DATA  16, 141,   1,  28, 232, 224,  10, 208
1190 DATA 242, 162,   9,  80, 254, 184, 169,  85
1200 DATA 141,   1,  28, 202, 208, 245,  32,   0
1210 DATA 254, 169,   1,  76, 105, 249,  69